home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / gnu_st.lha / gnu_st / smalltalk-1.1.1 / stix / Xerr.st < prev    next >
Text File  |  1991-09-12  |  9KB  |  442 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32.  
  33.  
  34. XError subclass: #RequestError
  35.     instanceVariableNames: ''
  36.     classVariableNames: ''
  37.     poolDictionaries: ''
  38.     category: 'X hacking'
  39. !
  40.  
  41. !RequestError class methodsFor: 'instance creation'!
  42.  
  43. newFrom: aStream
  44.     ^self new initFrom: aStream
  45. !!
  46.  
  47. !RequestError methodsFor: 'private'!
  48.  
  49. initFrom: aStream
  50.     sequenceNumber _ aStream word. 
  51.     aStream long. 
  52.     minorOp _ aStream word. 
  53.     majorOp _ aStream byte. 
  54.     aStream skipBytes: 21
  55. !!
  56.  
  57.  
  58. XError subclass: #ValueError
  59.     instanceVariableNames: 'badValue '
  60.     classVariableNames: ''
  61.     poolDictionaries: ''
  62.     category: 'X hacking'
  63. !
  64.  
  65. !ValueError class methodsFor: 'instance creation'!
  66.  
  67. newFrom: aStream
  68.     ^self new initFrom: aStream
  69. !!
  70.  
  71. !ValueError methodsFor: 'private'!
  72.  
  73. initFrom: aStream
  74.     sequenceNumber _ aStream word. 
  75.     badValue _ aStream long. 
  76.     minorOp _ aStream word. 
  77.     majorOp _ aStream byte. 
  78.     aStream skipBytes: 21
  79. !!
  80.  
  81.  
  82. XError subclass: #WindowError
  83.     instanceVariableNames: 'badId '
  84.     classVariableNames: ''
  85.     poolDictionaries: ''
  86.     category: 'X hacking'
  87. !
  88.  
  89. !WindowError class methodsFor: 'instance creation'!
  90.  
  91. newFrom: aStream
  92.     ^self new initFrom: aStream
  93. !!
  94.  
  95. !WindowError methodsFor: 'private'!
  96.  
  97. initFrom: aStream
  98.     sequenceNumber _ aStream word. 
  99.     badId _ aStream long. 
  100.     minorOp _ aStream word. 
  101.     majorOp _ aStream byte. 
  102.     aStream skipBytes: 21
  103. !!
  104.  
  105.  
  106. XError subclass: #PixmapError
  107.     instanceVariableNames: 'badId '
  108.     classVariableNames: ''
  109.     poolDictionaries: ''
  110.     category: 'X hacking'
  111. !
  112.  
  113. !PixmapError class methodsFor: 'instance creation'!
  114.  
  115. newFrom: aStream
  116.     ^self new initFrom: aStream
  117. !!
  118.  
  119. !PixmapError methodsFor: 'private'!
  120.  
  121. initFrom: aStream
  122.     sequenceNumber _ aStream word. 
  123.     badId _ aStream long. 
  124.     minorOp _ aStream word. 
  125.     majorOp _ aStream byte. 
  126.     aStream skipBytes: 21
  127. !!
  128.  
  129.  
  130. XError subclass: #AtomError
  131.     instanceVariableNames: 'badId '
  132.     classVariableNames: ''
  133.     poolDictionaries: ''
  134.     category: 'X hacking'
  135. !
  136.  
  137. !AtomError class methodsFor: 'instance creation'!
  138.  
  139. newFrom: aStream
  140.     ^self new initFrom: aStream
  141. !!
  142.  
  143. !AtomError methodsFor: 'private'!
  144.  
  145. initFrom: aStream
  146.     sequenceNumber _ aStream word. 
  147.     badId _ aStream long. 
  148.     minorOp _ aStream word. 
  149.     majorOp _ aStream byte. 
  150.     aStream skipBytes: 21
  151. !!
  152.  
  153.  
  154. XError subclass: #CursorError
  155.     instanceVariableNames: 'badId '
  156.     classVariableNames: ''
  157.     poolDictionaries: ''
  158.     category: 'X hacking'
  159. !
  160.  
  161. !CursorError class methodsFor: 'instance creation'!
  162.  
  163. newFrom: aStream
  164.     ^self new initFrom: aStream
  165. !!
  166.  
  167. !CursorError methodsFor: 'private'!
  168.  
  169. initFrom: aStream
  170.     sequenceNumber _ aStream word. 
  171.     badId _ aStream long. 
  172.     minorOp _ aStream word. 
  173.     majorOp _ aStream byte. 
  174.     aStream skipBytes: 21
  175. !!
  176.  
  177.  
  178. XError subclass: #FontError
  179.     instanceVariableNames: 'badId '
  180.     classVariableNames: ''
  181.     poolDictionaries: ''
  182.     category: 'X hacking'
  183. !
  184.  
  185. !FontError class methodsFor: 'instance creation'!
  186.  
  187. newFrom: aStream
  188.     ^self new initFrom: aStream
  189. !!
  190.  
  191. !FontError methodsFor: 'private'!
  192.  
  193. initFrom: aStream
  194.     sequenceNumber _ aStream word. 
  195.     badId _ aStream long. 
  196.     minorOp _ aStream word. 
  197.     majorOp _ aStream byte. 
  198.     aStream skipBytes: 21
  199. !!
  200.  
  201.  
  202. XError subclass: #MatchError
  203.     instanceVariableNames: ''
  204.     classVariableNames: ''
  205.     poolDictionaries: ''
  206.     category: 'X hacking'
  207. !
  208.  
  209. !MatchError class methodsFor: 'instance creation'!
  210.  
  211. newFrom: aStream
  212.     ^self new initFrom: aStream
  213. !!
  214.  
  215. !MatchError methodsFor: 'private'!
  216.  
  217. initFrom: aStream
  218.     sequenceNumber _ aStream word. 
  219.     aStream long. 
  220.     minorOp _ aStream word. 
  221.     majorOp _ aStream byte. 
  222.     aStream skipBytes: 21
  223. !!
  224.  
  225.  
  226. XError subclass: #DrawableError
  227.     instanceVariableNames: 'badId '
  228.     classVariableNames: ''
  229.     poolDictionaries: ''
  230.     category: 'X hacking'
  231. !
  232.  
  233. !DrawableError class methodsFor: 'instance creation'!
  234.  
  235. newFrom: aStream
  236.     ^self new initFrom: aStream
  237. !!
  238.  
  239. !DrawableError methodsFor: 'private'!
  240.  
  241. initFrom: aStream
  242.     sequenceNumber _ aStream word. 
  243.     badId _ aStream long. 
  244.     minorOp _ aStream word. 
  245.     majorOp _ aStream byte. 
  246.     aStream skipBytes: 21
  247. !!
  248.  
  249.  
  250. XError subclass: #AccessError
  251.     instanceVariableNames: ''
  252.     classVariableNames: ''
  253.     poolDictionaries: ''
  254.     category: 'X hacking'
  255. !
  256.  
  257. !AccessError class methodsFor: 'instance creation'!
  258.  
  259. newFrom: aStream
  260.     ^self new initFrom: aStream
  261. !!
  262.  
  263. !AccessError methodsFor: 'private'!
  264.  
  265. initFrom: aStream
  266.     sequenceNumber _ aStream word. 
  267.     aStream long. 
  268.     minorOp _ aStream word. 
  269.     majorOp _ aStream byte. 
  270.     aStream skipBytes: 21
  271. !!
  272.  
  273.  
  274. XError subclass: #AllocError
  275.     instanceVariableNames: ''
  276.     classVariableNames: ''
  277.     poolDictionaries: ''
  278.     category: 'X hacking'
  279. !
  280.  
  281. !AllocError class methodsFor: 'instance creation'!
  282.  
  283. newFrom: aStream
  284.     ^self new initFrom: aStream
  285. !!
  286.  
  287. !AllocError methodsFor: 'private'!
  288.  
  289. initFrom: aStream
  290.     sequenceNumber _ aStream word. 
  291.     aStream long. 
  292.     minorOp _ aStream word. 
  293.     majorOp _ aStream byte. 
  294.     aStream skipBytes: 21
  295. !!
  296.  
  297.  
  298. XError subclass: #ColormapError
  299.     instanceVariableNames: 'badId '
  300.     classVariableNames: ''
  301.     poolDictionaries: ''
  302.     category: 'X hacking'
  303. !
  304.  
  305. !ColormapError class methodsFor: 'instance creation'!
  306.  
  307. newFrom: aStream
  308.     ^self new initFrom: aStream
  309. !!
  310.  
  311. !ColormapError methodsFor: 'private'!
  312.  
  313. initFrom: aStream
  314.     sequenceNumber _ aStream word. 
  315.     badId _ aStream long. 
  316.     minorOp _ aStream word. 
  317.     majorOp _ aStream byte. 
  318.     aStream skipBytes: 21
  319. !!
  320.  
  321.  
  322. XError subclass: #GContextError
  323.     instanceVariableNames: 'badId '
  324.     classVariableNames: ''
  325.     poolDictionaries: ''
  326.     category: 'X hacking'
  327. !
  328.  
  329. !GContextError class methodsFor: 'instance creation'!
  330.  
  331. newFrom: aStream
  332.     ^self new initFrom: aStream
  333. !!
  334.  
  335. !GContextError methodsFor: 'private'!
  336.  
  337. initFrom: aStream
  338.     sequenceNumber _ aStream word. 
  339.     badId _ aStream long. 
  340.     minorOp _ aStream word. 
  341.     majorOp _ aStream byte. 
  342.     aStream skipBytes: 21
  343. !!
  344.  
  345.  
  346. XError subclass: #IDChoiceError
  347.     instanceVariableNames: 'badId '
  348.     classVariableNames: ''
  349.     poolDictionaries: ''
  350.     category: 'X hacking'
  351. !
  352.  
  353. !IDChoiceError class methodsFor: 'instance creation'!
  354.  
  355. newFrom: aStream
  356.     ^self new initFrom: aStream
  357. !!
  358.  
  359. !IDChoiceError methodsFor: 'private'!
  360.  
  361. initFrom: aStream
  362.     sequenceNumber _ aStream word. 
  363.     badId _ aStream long. 
  364.     minorOp _ aStream word. 
  365.     majorOp _ aStream byte. 
  366.     aStream skipBytes: 21
  367. !!
  368.  
  369.  
  370. XError subclass: #NameError
  371.     instanceVariableNames: ''
  372.     classVariableNames: ''
  373.     poolDictionaries: ''
  374.     category: 'X hacking'
  375. !
  376.  
  377. !NameError class methodsFor: 'instance creation'!
  378.  
  379. newFrom: aStream
  380.     ^self new initFrom: aStream
  381. !!
  382.  
  383. !NameError methodsFor: 'private'!
  384.  
  385. initFrom: aStream
  386.     sequenceNumber _ aStream word. 
  387.     aStream long. 
  388.     minorOp _ aStream word. 
  389.     majorOp _ aStream byte. 
  390.     aStream skipBytes: 21
  391. !!
  392.  
  393.  
  394. XError subclass: #LengthError
  395.     instanceVariableNames: ''
  396.     classVariableNames: ''
  397.     poolDictionaries: ''
  398.     category: 'X hacking'
  399. !
  400.  
  401. !LengthError class methodsFor: 'instance creation'!
  402.  
  403. newFrom: aStream
  404.     ^self new initFrom: aStream
  405. !!
  406.  
  407. !LengthError methodsFor: 'private'!
  408.  
  409. initFrom: aStream
  410.     sequenceNumber _ aStream word. 
  411.     aStream long. 
  412.     minorOp _ aStream word. 
  413.     majorOp _ aStream byte. 
  414.     aStream skipBytes: 21
  415. !!
  416.  
  417.  
  418. XError subclass: #ImplementationError
  419.     instanceVariableNames: ''
  420.     classVariableNames: ''
  421.     poolDictionaries: ''
  422.     category: 'X hacking'
  423. !
  424.  
  425. !ImplementationError class methodsFor: 'instance creation'!
  426.  
  427. newFrom: aStream
  428.     ^self new initFrom: aStream
  429. !!
  430.  
  431. !ImplementationError methodsFor: 'private'!
  432.  
  433. initFrom: aStream
  434.     sequenceNumber _ aStream word. 
  435.     aStream long. 
  436.     minorOp _ aStream word. 
  437.     majorOp _ aStream byte. 
  438.     aStream skipBytes: 21
  439. !!
  440.  
  441.  
  442.